Set oShell = CreateObject("WScript.Shell")
Set oFSO   = CreateObject("Scripting.FileSystemObject")

' Folder where this script is located
strDir = oFSO.GetParentFolderName(WScript.ScriptFullName)

' Shortcut path (will be created in same folder)
lnkPath = strDir & "\Shutter Encoder OpenGL.lnk"

' Target = javaw.exe inside local JRE
targetPath = strDir & "\JRE\bin\javaw.exe"

' Arguments to pass
args = "-Xmx4G -Dsun.java2d.opengl=true -Djavax.accessibility.assistive_technologies -Djavax.accessibility.screen_magnifier_present=false -jar ""Shutter Encoder.exe"""

' Create shortcut
Set oLink = oShell.CreateShortcut(lnkPath)
oLink.TargetPath = targetPath
oLink.Arguments = args
oLink.WorkingDirectory = strDir
oLink.IconLocation = strDir & "\Shutter Encoder.exe,0"
oLink.Save
